home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
shazam.exe
/
ADEMO2.EVT
< prev
next >
Wrap
Text File
|
1992-09-01
|
841b
|
20 lines
{===================================================================
OPEN
===================================================================}
procedure hdOpen ;
var
D : PFileDialog ;
FileSpec : FNameStr ;
begin
FileSpec := '*.TXT' ;
New ( D , Init ( FileSpec , { FileSpec }
'Open file', { Dialog title }
'~N~ame' , { InputLine label }
fdOpenButton , { Buttons }
100 ) ) ; { History list }
if ExecDialog ( D , @FileSpec ) = cmCancel then EXIT ; { GENERAL }
OpenEditor ( FileSpec , TRUE ) ; { GENERAL }
end ;